home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 7.st / KAMIKAZE.ARC / FASTRAND.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-14  |  339 b   |  16 lines
  1.  
  2.     public    _FastRand
  3. _FastRand:
  4.     move.w    _randseed,d0
  5.     add.w    d0,d0        ; shift seed left (add dn,dn is faster)
  6.     bhi.s    L5        ; carry? (using bhi instead of bcc unlocks 0s)
  7.     eor.w    #$2B41,d0    ; magic number for 16 bit seed
  8. L5:
  9.     move.w    d0,_randseed
  10.     and.w    #$3ff,d0    ; mask down to 0 to 1023
  11.     rts
  12.  
  13.     dseg
  14.     public _randseed
  15. _randseed dc.w    0
  16.